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Set R := set of restricted pointer variables 
Set P := set of pointer variables that are formal parameters and not in R 
Set D := set of pointer variables used for indirect memory accesses 



302 
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410 void bar( float * restrict a, float * x, int i, int j, int k ) { 

415 a[0]=x[0]; 

420 { 

425 float * restrict b = a-k; 

430 float * restrict c = x+k; 

435 float * y = b+i; 

440 c[i] = *y; 

445 } 

450 { 

455 float * restrict d = a; 

460 { 

470 float * restrict e = x; 

475 dQ] = eDl; 

480 } 

490 } 

495 } 



Program 400 
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602 



INITIALIZE TABLE OF POINTERS 

i 604 

RETRIEVE INSTRUCTION "fi^ 




RZ=UNIFY(REP(X), REP(Y)) 
1 



SET TABLE AT ROW RZ, COLUMN 2 
EQUAL TO 
REPfX).COL n REP(Y).COL 
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procedure FLOW_WALK 



702 


for each pointer variable w do 




704 


if w e (RuP) then 




706 


REP(w).col =w; 




708 


else 




710 


REP(w).col = T; 




712 


enddo 


702 



714 for each instruction do 


716 


for each pointer variable y that might be modified by the instruction 


718 


ify is pointer variable that is restrict qualified then 


720 


//Ignore it. 


722 


else 


724 


if 3^ is a local pointer variable then 


726 


if instruction is assignment that sets y to adjustment of x then 


728 


if REP(x).col n REP(y).col = ± then 


730 


// Do not unify. Doing so just loses information. 


732 


REP(y).col = ± 


734 


else 


736 


//Target oiy is same as target of x 


738 


rz - UNrFY(REP(y), REP(x) ); 


740 


rz.col = REP(x).col fl REP(y).col; 


742 


endif 


744 


else 


746 


//Target of y is unknown 


748 


REP(y).col := ±; 


750 


endif 


752 


endif 


756 


enddo 


758 


enddo 


760 end FLOW_WALK 704 



Pseudo Code 700" 
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METHOD 
/ 900 



INITIALIZE ALL 
MATRIX ENTRIES TO 
TRUE 




FOR THE NEXT INDIRECT READ OR WRITE 
THROUGH A POINTER 
(CALL ITY) 



ASSIGN "FALSE" TO EACH MATRIX ENTRY IN ROW \ 
CORRESPONDING TO EVERY RESTRICTED POINTER 
THAT IS OUT OF SCOPE WHEN THE INSTRUCTION 
EXECUTES 
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procedure SCOPE_WALK 



1010 for each i in D do 

1015 for each j in R do 

1 020 MATRIX[ROW(i),j] := true 

1025 enddo 

1030 enddo 1002 



1 03 5 for each instruction x do 

1 040 for each indirect read or write through a pointer y do 

1045 i:=ROW0); 

1050 k : = REPO'i.col; 

1055 if ke (RuP) then 

1 060 for each j in R do 

1065 if j is not in scope when instruction x executes then 

1070 MATRIX[i,j] := false; 

1075 endif 

1080 enddo 

1090 

1095 enddo 

1096 endo 1004 



end SCOPE_WALK 




Pseudo Code 1000 
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Pseudocode 1300- 



procedure COULD_TARGETS_ALIAS(x,y) 



1320 i = REP(x).col; 
1302 j = REP(y).col; 
1306 if i=j then 
1308 return true; 
1310 endif 1302 



1312 if ieR and jeR and MATRIX[ROW(x),j]=true 
1314 and MATRIX[ROW(y),i]=true then 
1316 return false; 

1318 endif 1304 



1320 if ieR and jeP and MATRIX[ROW(y),i]=true then 
1322 return false; 
1324 endif 

1306 



1326 if jeR and ieP and MATRIX[ROW(x),j]=true then 
1328 returns false; 
1330 endif 
1340 return true; 

1308 



end COULD TARGETS_ALIAS 
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